home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / CD-ROM Tutorial.cpt / CD-ROM Tutorial / card_9348.txt < prev    next >
Text File  |  1990-04-04  |  5KB  |  247 lines
  1. -- card: 9348 from stack: in
  2. -- bmap block id: 9642
  3. -- flags: 0000
  4. -- background id: 8923
  5. -- name: General Layout 1
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field "?"
  9.   hide card field "root"
  10.   hide card field "right"
  11.   delete line 1 of card field ques
  12.   set lockScreen to false
  13.   set userLevel to 2
  14.   click at 219,155
  15. end openCard
  16.  
  17.  
  18. -- part 3 (field)
  19. -- low flags: 00
  20. -- high flags: 2000
  21. -- rect: left=60 top=94 right=172 bottom=446
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 21
  26. -- text size: 12
  27. -- style flags: 16640
  28. -- line height: 16
  29. -- part name: 
  30.  
  31.  
  32. -- part 7 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=5 top=38 right=90 bottom=486
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 21
  40. -- text size: 24
  41. -- style flags: 256
  42. -- line height: 32
  43. -- part name: 
  44.  
  45.  
  46. -- part 8 (button)
  47. -- low flags: 00
  48. -- high flags: 8000
  49. -- rect: left=333 top=297 right=340 bottom=405
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 19381 / 19381
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Review
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect wipe right
  61.   set userLevel to 1
  62.   go to previous card
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 10 (field)
  68. -- low flags: 00
  69. -- high flags: 2004
  70. -- rect: left=213 top=144 right=167 bottom=296
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: ques
  79. ----- HyperTalk script -----
  80. on returnKey
  81.   if line 1 of card field ques is "search?" then
  82.     show card field "right"
  83.     wait 1 seconds
  84.     global wild
  85.     put "1" into wild
  86.     set lockScreen to true
  87.     set userLevel to 1
  88.     go to card id 23137
  89.   else if line 1 of card field ques is "search" then
  90.     hide card field "root"
  91.     show card field "?"
  92.     delete line 1 of card field ques
  93.   else
  94.     delete line 1 of card field ques
  95.     hide card field "?"
  96.     show card field "root"
  97.   end if
  98.   click at 219,155
  99. end returnKey
  100.  
  101.  
  102.  
  103. -- part 11 (button)
  104. -- low flags: 00
  105. -- high flags: A003
  106. -- rect: left=309 top=133 right=170 bottom=375
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: OK
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   if line 1 of card field ques is "search?" then
  118.     show card field "right"
  119.     wait 1 seconds
  120.     global wild
  121.     put "1" into wild
  122.     set lockScreen to true
  123.     set userLevel to 1
  124.     go to card id 23137
  125.   else if line 1 of card field ques is "search" then
  126.     hide card field "root"
  127.     show card field "?"
  128.     delete line 1 of card field ques
  129.   else
  130.     delete line 1 of card field ques
  131.     hide card field "?"
  132.     show card field "root"
  133.   end if
  134.   click at 219,155
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 12 (field)
  140. -- low flags: 80
  141. -- high flags: 2004
  142. -- rect: left=171 top=181 right=279 bottom=331
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 3
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: ?
  151.  
  152.  
  153. -- part 13 (field)
  154. -- low flags: 80
  155. -- high flags: 2004
  156. -- rect: left=170 top=181 right=280 bottom=331
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 0
  160. -- font id: 3
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: root
  165.  
  166.  
  167. -- part 14 (field)
  168. -- low flags: 00
  169. -- high flags: 2001
  170. -- rect: left=164 top=180 right=281 bottom=334
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 21
  175. -- text size: 24
  176. -- style flags: 16640
  177. -- line height: 32
  178. -- part name: right
  179.  
  180.  
  181. -- part 15 (button)
  182. -- low flags: 00
  183. -- high flags: 0000
  184. -- rect: left=22 top=300 right=342 bottom=89
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: New Button
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   set userLevel to 1
  196.   go to card id 23137
  197. end mouseUp
  198.  
  199.  
  200.  
  201.  
  202. -- part 16 (button)
  203. -- low flags: 00
  204. -- high flags: 0000
  205. -- rect: left=405 top=295 right=342 bottom=502
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: New Button
  214.  
  215.  
  216. -- part contents for card part 3
  217. ----- text -----
  218. Type in the root word and symbol that would yield the words SEARCHES and SEARCHING.
  219.  
  220. Then click on OK.  
  221.  
  222. -- part contents for card part 7
  223. ----- text -----
  224. Practice Exercise:  Wildcards
  225.  
  226. -- part contents for card part 12
  227. ----- text -----
  228.  
  229. You need to type a ? after the word search.
  230.  
  231. Please try again.
  232.  
  233. -- part contents for card part 13
  234. ----- text -----
  235.  
  236. Type the ROOT word, followed by a ?.
  237.  
  238. Please try again.
  239.  
  240. -- part contents for card part 14
  241. ----- text -----
  242.  
  243. CORRECT!
  244.  
  245. -- part contents for card part 10
  246. ----- text -----
  247. search?